10 REM * * SOUND PROGRAM OF * *
20 REM * * CARDS BEING SHUFFLED * *
30 REM * * PROGRAM #1 * *
40 PRINT"[147]"
50 FORA=1TO800:NEXTA
60 FORB=54272TO54296:POKEB,0:NEXTB
70 V=54296:W=54276:A=54277
80 HF=54273:LF=54272
90 FORY=1TO3
100 FORX=1TO25
110 POKEV,15:POKEW,129:POKEA,15
120 POKEHF,60:POKELF,100
130 POKEHF,0:POKELF,0:POKEW,0
140 NEXTX
150 FORT=1TO300:NEXTT
160 FORZ=1TO40
170 POKEV,15:POKEW,129:POKEA,128
180 POKEHF,90:POKELF,140
190 POKEHF,0:POKELF,0:POKEW,0
200 NEXTZ
210 FORS=1TO500:NEXTS
220 NEXTY
230 PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]"
240 PRINT:PRINT:PRINT"  HERE IS ONE SHUFFLING PROGRAM.":PRINT
250 PRINT"  THIS ONE SHUFFLES FAST AND SOME-":PRINT
260 PRINT"  WHAT CLEAN REMINDING ONE OF MAYBE":PRINT
270 PRINT"  A VEGAS DEALER.  PROGRAM #2 SOUNDS":PRINT
280 PRINT"  A LITTLE MORE LIKE YOU AND I DEAL.":PRINT
290 PRINT"  TAKE YOUR PICK, EITHER ONE WILL":PRINT
300 PRINT"  ENHANCE YOUR CARD GAME."
310 FORC=1TO6000:NEXTC